home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ETO Development Tools 4
/
ETO Development Tools 4.iso
/
Tools - Objects
/
Macintosh Programmer’s Workshop
/
MPW 3.2
/
MPW
/
Interfaces
/
PInterfaces
/
DiskInit.p
< prev
next >
Wrap
Text File
|
1991-04-17
|
1KB
|
58 lines
{
Created: Sunday, January 6, 1991 at 10:30 PM
DiskInit.p
Pascal Interface to the Macintosh Libraries
Copyright Apple Computer, Inc. 1985-1989
All rights reserved
}
{$IFC UNDEFINED UsingIncludes}
{$SETC UsingIncludes := 0}
{$ENDC}
{$IFC NOT UsingIncludes}
UNIT DiskInit;
INTERFACE
{$ENDC}
{$IFC UNDEFINED UsingDiskInit}
{$SETC UsingDiskInit := 1}
{$I+}
{$SETC DiskInitIncludes := UsingIncludes}
{$SETC UsingIncludes := 1}
{$IFC UNDEFINED UsingTypes}
{$I $$Shell(PInterfaces)Types.p}
{$ENDC}
{$SETC UsingIncludes := DiskInitIncludes}
TYPE
HFSDefaults = RECORD
sigWord: PACKED ARRAY [0..1] OF Byte; { signature word}
abSize: LONGINT; { allocation block size in bytes}
clpSize: LONGINT; { clump size in bytes}
nxFreeFN: LONGINT; { next free file number}
btClpSize: LONGINT; { B-Tree clump size in bytes}
rsrv1: INTEGER; { reserved}
rsrv2: INTEGER; { reserved}
rsrv3: INTEGER; { reserved}
END;
PROCEDURE DILoad;
PROCEDURE DIUnload;
FUNCTION DIBadMount(where: Point;evtMessage: LONGINT): INTEGER;
FUNCTION DIFormat(drvNum: INTEGER): OSErr;
FUNCTION DIVerify(drvNum: INTEGER): OSErr;
FUNCTION DIZero(drvNum: INTEGER;volName: Str255): OSErr;
{$ENDC} { UsingDiskInit }
{$IFC NOT UsingIncludes}
END.
{$ENDC}